Title Case LibreOffice Calc용 함수

TITLECASE() 설명

TITLECASE() 함수는 기존 텍스트를 제목 형식으로 변환하고 다음 형식의 단어 집합을 반환하도록 설계되었습니다. "Function for Title Case" .

Title Case 함수 코드는 하이픈, 밑줄 등의 구분 기호를 공백으로 바꾸고, 모든 단어를 대문자로 변환하고, 접속사를 소문자로 변환합니다.

Title Case은 뉴스 헤드라인, 사이트 기사 제목 또는 YouTube 동영상 제목의 대소문자 수정에 유용할 수 있습니다.

TITLECASE()은 접속사가 대문자로 표시되지 않는다는 점을 제외하면 표준 PROPER() 함수와 유사합니다.

StarBASIC TITLECASE()에 대한 코드

다음은 LibreOffice Calc에서 텍스트를 제목(Title Case)으로 표시할 수 있는 사용자 정의 함수를 생성하는 매크로 코드입니다.

Tools - Macros - Edit Macros... 메뉴를 열고 Module1을 선택한 후 다음 텍스트를 모듈에 복사합니다.

Function TitleCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim words As Variant
  Dim FCalc As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")  
    
  oddWordsLat = "A|An|And|As|At|But|By|En|For|If|In|Is|Of|On|Or|The|To|Vs|Via"
  oddWordsCyr = "І|Як|На|Але|Для|Якщо|В|Чи|До|Через|Та|Від|Під|Над|И|Как|Но|То|Или|От|Под|К"  
  words = Split(oddWordsLat + "|" + oddWordsCyr,"|") 
  
  str = FCalc.callFunction("PROPER", Array(str))  
  
  For i = LBound(words) To UBound(words)  
    pattern = "(?!^)\b" + words(i) + "\b"
    replacement = LCase(words(i))
    
    str = FCalc.callFunction("REGEX", Array(str,pattern,replacement,"g"))
  Next i
    
  TitleCase = str
End Function

그런 다음 Macro Editor을 닫고 LibreOffice Calc로 돌아가서 모든 셀에서 새 기능을 사용하세요.

확장 프로그램 사용

기능을 사용할 수도 있습니다. TITLECASE() 무료 확장 프로그램을 설치하여 YouLibreCalc.oxt 또는 모든 기능을 갖춘 버전 YLC_Utilities.oxt .

그 후에는 LibreOffice Calc에서 열리는 모든 파일에서 이 기능을 사용할 수 있습니다.